home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / 899 / 899dbase.pro < prev    next >
Text File  |  1989-10-16  |  1KB  |  32 lines
  1. project "899"                         % This project
  2. include "899glob.pro"                 % Inlcude globals
  3.  
  4. % 899DBASE.PRO -- Database interface for the WTHS FM project
  5.  
  6. % GLOBAL PREDICATES FOUND IN THIS MODULE::
  7. %        openbase
  8. %        clbase
  9.  
  10. PREDICATES
  11.   open_error(INTEGER)   % Does the error routine on open error
  12.  
  13. CLAUSES
  14.   openbase :-
  15.       trap(consult(db_file_name),ErrorCode,open_error(ErrorCode)), !.
  16.   openbase :-
  17.       write("\nProgram Operation Terminated.\n\n"),
  18.       exit(1).
  19.   
  20.   open_error(ErrorCode) :-
  21.       write("\n\nERROR (#",ErrorCode,") Reading Data file '",db_file_name,"'"),
  22.       consulterror(ErrLine,ErrLinePos,ErrFilePos),
  23.       write("\nLine     :",ErrLine),
  24.       write("\nPosition :",ErrLinePos),
  25.       write("\nOffset   :",ErrFilePos),
  26.       write("\n\nContact Jovo Filipovich IMMEDIATLY, normal operation of"),
  27.       write("\nthis program CANNOT continue due to errors in the data file.\n").
  28.   
  29.   clbase :-
  30.       deletefile(db_file_name),
  31.       save(db_file_name).
  32.